16
How do I refresh the control
Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "Item 1" Nothing Nothing to Nothing
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
15
How do I change the color to highligth the selected item

Procedure OnCreate
	Forward Send OnCreate
	Set ComHighLightBorderColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
14
How do I change the drop down, popup menu foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupForeColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
13
How do I change the drop down, popup menu background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupBackColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
12
How do I change the control's shadow color

Procedure OnCreate
	Forward Send OnCreate
	Set ComShadowColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
11
How do I place the control on vertical

Procedure OnCreate
	Forward Send OnCreate
	Set ComOpenMode to OLEHorizontal
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
10
How do I change the control's appearance
Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLEButton
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
9
How do I change the control's appearance

Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLENormal
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
8
How do I change the visual appearance effect for the selected item, using EBN

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to (RGB(0,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
7
How do I change the colors for the selected item

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelBackColor to (RGB(0,0,0))
	Set ComSelForeColor to (RGB(255,255,255))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
6
How do I change the control's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComForeColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
5
How do I change the control's background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(200,200,200))
End_Procedure
4
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
	Send Destroy to hoStdFont
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
3
How do I change the drop down menu's border

Procedure OnCreate
	Forward Send OnCreate
	Set ComBorder to OLEFlatBorder
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
2
How do I change the control's border, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComMenuBarBorder to |CI$1000000
	Set ComBorder to |CI$1000000
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure
1
How do I change the control's border

Procedure OnCreate
	Forward Send OnCreate
	Set ComMenuBarBorder to OLEFlatBorder
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
	Send Destroy to hoMenu
End_Procedure